home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / applications / wp / ged11.lha / Install / data / main / GoldED / ARexx / execute.ged < prev    next >
Text File  |  1993-09-17  |  2KB  |  92 lines
  1. /* $VER: 0.9, ©1993 Dietmar Eilert. Perform script lines               */
  2.  
  3. OPTIONS RESULTS                             /* enable return codes     */
  4.  
  5. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  6.     address 'GOLDED.1'
  7.  
  8. 'LOCK CURRENT'                              /* lock GUI, gain access   */
  9. OPTIONS FAILAT 25                           /* ignore any errors       */
  10. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  11.  
  12. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  13.  
  14. 'QUERY CAT'
  15. GERMAN = (RESULT = "deutsch")
  16.  
  17. if (GERMAN) then do
  18.  
  19.     NOTEXT    = "Kein Text vorhanden ?!"
  20.     ASKACTION = "Aktion auswählen..."
  21.     ACTIONGAD = "_ausführen|_überspringen|abbre_chen"
  22. end
  23. else do
  24.  
  25.     NOTEXT    = "Text buffer is empty ?!"
  26.     ASKACTION = "Choose action..."
  27.     ACTIONGAD = "_execute|_ignore|_stop"
  28. end
  29.  
  30. 'QUERY PATH VAR PATH'
  31.  
  32. shell
  33. pragma('D', path)
  34. shell
  35.  
  36. if (right(path, 1) ~= ':') then
  37.     path = path || '/'
  38.  
  39. 'QUERY ANYTEXT'
  40.  
  41. if (RESULT = "TRUE") then do
  42.  
  43.     'MARK HIDE'
  44.  
  45.     'QUERY LINE   VAR LINE'
  46.     'QUERY LINES  VAR LINES'
  47.     'QUERY BUFFER VAR COMMAND'
  48.  
  49.     do while (line <= lines)
  50.  
  51.         'QUERY ANYCHAR'
  52.  
  53.         if (RESULT = "TRUE") then do
  54.  
  55.             'MARK SET'
  56.             'REQUEST BODY="' || ASKACTION || '" BUTTON="' || ACTIONGAD || '"'
  57.             
  58.             if (RESULT = 0) then
  59.                 leave
  60.  
  61.             if (RESULT = 1) then do
  62.  
  63.                 'QUERY BUFFER VAR COMMAND'
  64.  
  65.                 shell
  66.                 COMMAND
  67.                 shell
  68.             end
  69.  
  70.             'MARK HIDE'
  71.         end
  72.  
  73.         'DOWN'
  74.         line = line + 1
  75.     end
  76.  
  77.     'MARK HIDE'
  78. end
  79. else
  80.     'REQUEST BODY="' || NOTEXT || '"'
  81.  
  82. /* ---------------------------- END OF YOUR CODE --------------------- */
  83.  
  84. 'UNLOCK' /* VERY important: unlock GUI */
  85. EXIT
  86.  
  87. SYNTAX:
  88.  
  89. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  90. 'UNLOCK'
  91. EXIT
  92.